home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SEXFLIX.DSK / JOYSTICK SEX.bas < prev    next >
BASIC Source File  |  2014-09-09  |  596b  |  13 lines
  1. 1  ONERR  GOTO 1000
  2. 10  TEXT : HOME 
  3. 15  PRINT "PRESS PUSHBUTTON (0) TO END."
  4. 20  INPUT "ENTER PICTURE NAMES (OMIT 'PIC.') ";A$,B$
  5. 30  IF A$ = ""  OR B$ = ""  THEN  PRINT "<CTRL-D>CATALOG": GOTO 20
  6. 40  PRINT "<CTRL-D>BLOAD PIC."A$",A$2000": PRINT "<CTRL-D>BLOAD PIC."B$",A$4000"
  7. 50  CALL  -3100: POKE  -16302,0
  8. 60  IF  PDL(1) <70  THEN  POKE  -16299,0
  9. 70  IF  PDL(1) >128  THEN  POKE  -16300,0
  10. 75  IF  PDL(1) >128  THEN A =  PEEK(49200)
  11. 80  IF  PEEK( -16287) >127  THEN  TEXT : HOME : GOTO 10
  12. 90  GOTO 60
  13. 1000  TEXT : PRINT : FLASH : PRINT "FUCK UP!!": NORMAL : FOR Y = 1 TO 2000: NEXT Y: GOTO 10